home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dicewahl.dir / 00011_Script_11 < prev    next >
Text File  |  1979-12-31  |  963b  |  32 lines
  1. on startMovie
  2.   global FT, reg, DiceGirl,screen, CDPfad, ScreenFaktor
  3.   set ok=baRegister("Marc van Eupen", 3376334)
  4.   set the centerStage=true
  5.   Set Reg=0
  6.   Set Dicegirl=1
  7.   set the floatPrecision to 2
  8.   set CDPfad=the pathname
  9.   set Screen=getAt(the deskTopRectList,1)
  10.   set ScreenFaktor=float(the right of screen)/float(800)
  11.   set FT="lc"
  12.   if the colordepth>8 and the platform contains "Windows,32" then set ft="tc"
  13.   set CDPfad=the pathname
  14. end
  15.  
  16. on Level_check
  17.   global level, dicegirl
  18.   if the frame>9 then exit
  19.   set inigirl="Girl"& dicegirl
  20.   set inilevel = baReadIni( "Dice3.1", inigirl, "", "dice3.ini" )
  21.   set temp =baDecryptText( inilevel , "938473920" )
  22.   if char 3 to 7 of temp="Level" then
  23.     set the text of member 26=temp
  24.     set level=value(char 1 to 2 of temp)
  25.     puppetsound "Aktion01"
  26.     go to frame "loadlevel"
  27.   else
  28.     puppetsound "wrongo"
  29.     set level=1
  30.     go to movie "Dice3"
  31.   end if
  32. end Level_check